#!/usr/bin/perl -w
sub ltrim {

      $_tmp = shift;
      $_tmp =~ s/^\s+//;
      return $_tmp;
}
sub get_val {

      $_tmp = shift;
      $_tmp = ltrim($_tmp);
      @a_tmp = split(/ /, $_tmp);
      return $a_tmp[0];
}
1;
